n <- 3
envsp <- fm.PrepareSparseFM(n, vector(), vector())
envsp <- fm.add_singletons_sparse(c(0.2,0.1,0.2),envsp)
envsp <- fm.add_tuple_sparse(c(1,2,3),0.4,envsp);
fm.max_subset_sparse(c(0.1,0.05,0.2),0,3,envsp)
envsp <- fm.FreeSparseFM(envsp)
Run the code above in your browser using DataLab